# -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:ft=tcl:et:sw=4:ts=4:sts=4

package require tcltest 2
namespace import tcltest::*

source "testlib.tcl"

test close_dt_socket "Test that closing the darwintrace socket is not possible" \
    -setup [setup {}] \
    -cleanup [expect] \
    -body {
        exec -ignorestderr -- ./close 2>@1
    } \
    -match glob \
    -result "close(*): Bad file descriptor"

cleanupTests
